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C3802 - DISPLAY STATION ALTERNATE CONSOLE SUPPORT P/N=1635202 EC=755551 PAGE 01 C3802 - DISPLAY STATION ALTERNATE CONSOLE SUPPORT P/N=1635202 EC=755551 PAGE OVA 
LOCTR OBJECT TEXT STNT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBH CORP 1976 
0014FO 3 C3802 START 5360 125 * BIT 1 = 0 - INFORHATION HESSAGE o 
4 Gece Gee eo eke. +4 Reker ua eenseereeeeceeenc nee eee re eas be 1 - ERROR HESSAGE : 
5 * * 
6 * em PREREQUISITES ee % Wee : THE SVC ‘OUTIN' ALSO ENTERS THIS ROUTINE. . 
i . DISPLAY STATION ATTACHED rd 130 GH Hehe ee ee ee ee a AEE EEA EEE EEE EE EH 
9 * LEVEL & PROCESSOR * 0014FO 131 DSPLY EQU * 
10 * x QO014FO 690D 179C 132 MVW R1, Peg” SET PRINT BUSY 
11 eke tk ok ICI RI RRR IO IO IO I ROR ROR IIR RR Rik OOI4F4 C128 1792 133 MVB R1, T/ON NEW LINE SWITCH 
12 * % O0OO014F8 C025 1794 134 NV BZ Rckes. Fo RESET MESSAGE PROCESSED SWITCH 
13 % 2 te ae MODIFICATIONS KH me O014FC 5003 135 J DS01 SET UP TO USSUE I/0 
iW * 137 LEGTCCES SALES SES TESS ERAS LT ESSERE RE RREHE CESS SSE RES ES STRESSES CEES EEK HSS 
5 * i IF C = * & 
ie x be BODIE Y PEGE CONTROL ON: BURN ATNE * 139 * THIS ROUTINE HANDLES INTERRUPTS FROM THE DISPLAY STATION * 
17 sok tk to Rak RO RRO RRO ROR IRR RIOR I ROR ICR FOR ROR Rg a RC IK ake a 140 * % 
18 * * 141 fe RRR ok ROR OR OI gi i Roi Roti gO dokoiotogok fog ide ie de te dee ie tok ea eo a eke 
g * ee ' kak * OO14FE 142 DSO0O * 
38s pee Cie eee > OOIWFE 6301 143 bts SM DISABLE INTERUPTS 
21 * NONE * 001500 6B05 1604 144 BNCC THREE,DS70 BR/IF NOT DEV END INT 
22 * * 001504 145 DSO1 EQU * 
23 eR RRR kK ROR IO OR IOI ROR ROI I RR ROR RIGOR RO ROCIO. IOI RIOR RRO t Ot a kok teak ge ak ate ate ate 001504 6908 179C 146 MVW PRTSW,R1 GET ADDR QUE BLOCK 
2u * * 001508 6B08 17BC 147 MVW RPSV £3 GET DIAGNOSTIC PROGRAM DATA ADDR 
25 * 4 SPECIAL INSTRUCTIONS HOKE * 00150C C025 1795 148 MVBZ ACTHS,RO READ DISPLAY IN PROGRESS AND CLEAR 
26 * * 001510 6801 1662 149 BNZ DS91 BR/YES - PROCESS INPUT 
27 * NONE * 001514 C420 1794 150 MVB  ACFCS,R4 MESSAGE BEEN PROCESSED 
28 * ° DS 001518 1844 151 JNZ DS30 BR/YES 
29 ORR RRR RO ORR ROKR IOI ROR II IIR ROROR ROR III Rak RIOR RRO a tak tek tete ate skate ate ate ake ae OO151A 152 DS10 EQU * 
30 * * Q00151A 0840 153 MV¥YBI EBBK,RO INITIAL BLANK FOR BUFFER 
31 * Ok E. C. HISTORY ee * Q0151C OF50 154 MVBI EGHT{,R7 LENGTH OF BUFFER 
33 : 001322 266¢ | 186 FFA RO, (RG) ZERO OUT BUFFER 
33 * DATE O1JUL76 DATE 10J0N77 DATE O8AUG78 DATE O6NOV78 * 
34 x E.C. 578446 E.C. 578625 Cc. 755404 E.C. 755551 x 001524 C020 1790 157 HVB PRBA,R PRINT BLANK LINE AFTER ENTER 
35 * ‘ * 001528 1837 158 JNZ DS24 BR/IF YES 
36 hae ook dk kkk tok ok ako sola tedok a gti ga tok ae aka ke fie ie tke kako ak te ak 00152A C025 1792 159 MVBZ NLSW,RO NEW LINE SW ON-IF SO TURN OFF 
38 sk ao a aC lei i dalek Sk i I iar tok goto i keak ge ak ake QOO0152E 1016 160 JZ DS20 BR/IF NOT 
39 * * 001530 C020 179B 161 MVB GRPT1,R0 BYPASS HEADEP PRINT 
uo * SYSTEM EQUATES * 001534 1213 162 JN DS20 BR/YES-DON'T PRINT HEADER 
ud * 001536 4224 1716 163 NVA PRTBU,R2 PRINT BUFFER ADR 
42 Oa ak ok Sic ao ao do ick otk aakkok lok do git r i iok igi faiatoie sk dot tok te gee dc ikakoke ake ak ac caress ee T7AC ie ava Se ap convene BLOCK 
000001 43 SM EQU 1 SU K D 
4a 2 7 PRRELE GobR. ee 001540 4724 17B2 166 NVA HALCV,R7 ADR OF CONTROL BLOCK 
45 ao Rook oka tole data ick atic toto dao dia a kal Sei ii igtamotoiok a mooie iok ge tage tage tc ako te kok a 001544 601A 167 SVC HTOE GO CONVERT 
19 : OO1suR OFOd |S 165 HVBI FOURCRT BYTES TO HOVE 
47 * EQUATED NAHES FOR SUPPORTED SVCIS * 
WB * 7 7 00154C 4624 1800 170 HVA = PID, R6 ADR OF I.D. 
49 2a ok dol a ei iokok a tolk i ao io ior io tofok a goloioictok gegiaiota ak gai tok gk 001550 2E44 171 HVEN Aneh (R2) HOVE THE PROG NAME 
399009 99 our zou 9, our svc 91389 GENE aoc 7g AUT angle? EaBETa ECE EEN ANC C8 Pr msc 
A HTOE EQU H T DIC SVC G ’ 
53 a dak ek ERIE ACER RARE KE BER EKER EERIE SS BEE RE RE HOS Bee Ob ek REE KE 001558 2E44 174 MVFN (RE) (R2) MOVE MESSAGE INTO PRINT BUFFER 
24 % * ABEee 500F 172 nee u . DS2 PRINT THE HEADER 
* EQUATES USED BY DCP * 
56 * Q * 00155C OF4O 177 MYBI SIXT4&,R7 SET TO MOVE 64 BYTES 
PWRELEE LISLE SSCL S SES SLOSS SS SL SCLC SSL CSS SS SL LS SPS SSS Se SSCS ES Le SCS SS eT eS eee Te 00155E 77C4 178 NVW R7,RE SAVE MAX NUMBER BYTES TO 4HOVE 
900006 58 sTOP EOU 6 STOP AFTER MSG OUT 001560 0800 179 MVBI ZERO,RO END OF MESSAGE CHAR 
000007 59 ALTDV EGU 7 ALTERNATE OUTPUT DEV ASSIGNED - 001562 286F 180 SFEN RO (3) COMPUTE LENGTH OF MESSAGE 
000008 60 RTMDI EQU 11 MDI RETURN REQUESTED 001564 1801 181 JNE DS2 BR/IF EOS NOT FOUND 
000040 62 EBBK EOU cts BLANK CHAR 001566 O3FF 182 ABI H1,R3 ADDRESS OF EOM CHARACTER 
900000 64 ZERO EOQU 0 VALUE OF 0 001568 183 DS21 a ¥ 
000001 65 ONE EQU 1 1 001568 77CA 184 S R7,R6 GET LENGTH OF MESSAGE 
900002 66 TWO EQU 2 2 00156A 101B 185 JZ DS30 BR/IF DONE 
000003 67 THREE EQU) 3 3 00156C 766A 186 SW R6,R3 GET ADDR OF MESSAGE AGAIN 
J00004 68 FOUR EQU rT mn QO0156E T76E4 187 MVW R6,R7 BYTES TO MOVE INTO BUFFER 
000007 69 SEVEN EQU 7 7 001570 4424 1716 188 MVA PRTBU, RY GET ADDR TTY BUFFER 
000008 70 EIGHT EOU 8 8 001574 2B84 189 HVFN fey te MOVE DATA INTO PRINT BUFFER 
000009 71 NINE EOU 9 9 001576 C428 1794 190 MVB 4, é cs INDICATE MESSAGE PROCESSED 
000014 72 TWNTY EQU 20 20 OO1STA 191 DS22 7 oe 
000018 73 TWENY EOU au 24 OO0157A C320 17B8 192 MVB PGCTL,R3 FULL SCREEN CONTROL SELECTED 
000040 74 STXT4 EOU 64 64 O0157E 100C 193 JZ DS24 BR/NOT SELECTED-BYPASS 
000042 75 SIXT6 EOU 66 66 001580 C320 17B9 194 NVB PGLCT,R3 GET LINE COUNT 
000050 76 EGHTY EOU 80 80 001584 0301 195 ABI ONE, R3 INCREMENT COUNT OF LINES 
FFEFPF 78 M1 EOU  -1 =4 001586 C328 17B9 196 MVB R3,PGLcT SAVE VALUE 
PFFFS2 79 430 EOD -30 ~30 00158A F318 197 CBI TWENG,R3 LINE COUNT EQUAL 24 
81 sok tok kk dak aor a otegi tuk ig iC tok fai iq ii iui otege lesa gage teat dee ak 00158C 1705 198 JLLT DS24 BR/NO-LESS THAN 
82 * * OO0O15S8E 1001 199 JE DS23 ie oe 
83 * EQUATES FOR CODED STOPS USED BY DCP * 001590 5037 200 J DS60 PAUSE AND WAIT FOR OPERATOR 
84 x (NORMAL AND ERROR) * 0071592 201 DS23 oe * 
85 * D3 001592 9028 16CE 1756 202 MVD PAGE, PRBND MOVE PAGE MESSAGE ON THIS LINE 
86 sk tok kkk Rk tk goto ato kk gk ok dato ikki gotta go sete tote gokoia ge tak tek dete ak aoa de ak ake ak 001598 203 DS24 EQU * 
003801 87 ACNG EQU  xX*'3801! ALTERNATE CONSOLE ERROR 001598 4624 176C 204 NVA = =6pWIDCB,R6 PRINT IDCB ADDR 
BQ He ma ae Regt a re ake a ae ee he ee Ok dk dot kok dakota tk yok totog tok doko doko kok dak kak kk 00159C 6F03 167C 205 BAL DSTO. fo GO ISSUE I/O AND CHECK COND 
90 x * Q0015A0 502F 206 J DS60 RETURN TO SCHEDULER 
91 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE a OO1SA2 207 DS30 EQU #* 
92 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. x Q0015A2 C025 17A2 208 HVBZ DEAT,RO SCREEN CONTROL MESSAGE 
93 * % 0015A6 1814 209 JNZ DS50 BR/YES~RETURN TO INTERRUPTED PRG 
QU HR RR Bee he ae ae oe ee ae ae a aa oo ek tak kt eke kak a oe kak ke gk keke teak ge ete te ae cake ate te fe aca ak tae ate aca or O0715A8 882F 179E 1784 210 CW ENTSW,ACSVP* ENTER MESSAGE FINISHED 
000014 95 QR7 EQU- 20 XR7 OF CALLING PROGRAM QOISAE 1018 211 JE DS51 BEdTE YES 
000016 96 QSvC EOU 22 SVC NUMBER OF CALLING PROGRAH 0015B0 812B 0016 1793 212 CB (R1,QSVC) ,OUT1 SEE IF OUTIN SVC 
98 se tok toe ek i tok i ka kk ak de toto ako gk tok dak ade ak ok gee ea ie a eke ake ak 0015B6 100C 213 JE ps56 BR/YES CONTINUE 
99 x * 0015B8 C825 179C 214 NVWZ PRTSW ¢ RO RESET PRINT BUSY SWITCH 
100 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS AND CODE * O015BC 4734 1782 215 MVA = =ACIND*,R7 ADR OF DCP IND 
101 * REQUIRED BY THE ALTERNATE CONSOLE ROUTINE WHICH WILL x 0015C0 4F06 216 TBT AE STOP) IS STOP AFTER ERR MSG ON 
102 * BE READ INTO STORAGE AS OVERLAYS. * 0015C2 1004 217 JOFF ps4 BR/NO 
103 * * 0015C4 4724 179A 218 MVA  GRPT,R7 ADR FROM NSG INDICATORS 
104 eRe ee ee ko olaiaiok ki took io gaia toto tek tok dedakotatetog kotoke dato dee kodak ate ae ak J015C8 4FOI 219 TBT (R7 fINE) IS THIS AN ERR #WSG 
VQ5 HM Hem me ae eae a he ae ee ea a a a OR dak tot i ao to i take tet totegok god ke i tote te tok teak idee ake toa ake ac ate ak eouece 121A 329 bSive zon ps66 BR/YES WAIT FOR OPERATOR 
106 * * Z 
107 * NAHE DSPLY * QO015CC 6812 1786 222 B ACSVR* RETURN 
i 2 981883 exes s79a 33; 59° Ae, insu ges 
109 * PURPOSE THIS ROUTINE STARTS PRINTING ON THE DISPLAY STATION * RESET NEW LINE SW 
110 * WHAT IS PASSED TO THE ALTERNATE CONSOLE. * 0015D4 8838 1784 179E 225 MVu ACSVP*, ENTSH SET SWITCH WITH QUE BLOCK ADDR 
111 * * 226 * TO SHOW TO KEY IN DATA AFTER 
112 * METHOD THIS ROUTINE IS CALLED BY AN SVC. IT APPENDS THE % 227 * THIS MESSAGE HAS BEEN PRINTED 
113 * PROGRAH ID ON THE FRONT OF EACH MESSAGE PASSED. x VOI5DA 4324 16C8 228 MVA ENTER, R3 ADDR ENTER MSG PARA 
114 * * QO01SDE 5005 229 J DS52 PRINT MESSAGE 
115 * CALLING G AS UENCE * 0015E0 230 DS51 FOU * 
116 * OINTS TO LABEL * Q0015EO0O C¢c025 1790 231 MVBZ PRBA,RO BLANK LINE BEEN PRINTED 
117 * * O0O15E4 1803 232 JINZ DS53 BR/IF YES 
118 * SVC OUT ‘ * 0015E6 C428 1790 233 MVB R4,PRBA SET SW TO PRINT BLANK LINE 
113 : AB A ; DO1EA 5097 $34 unre as DS10 NT 
LABEL DC A (ADDR START ADDR OF DATA TO PRINT * PRI IT 
131 3 aa ae cere 336 0553 ou, vase, n0 a 
* THE BYTE IMMEDIATELY PRECEEDING THE LABEL IS CHECKED. * =) NTER SWITCH 
123 * BIT 0 = 0 - PRINT HEADER. * 0015FO 812B 0016 1793 238 CB (Ra oSvc) ,ourt QUT/IN S¥C 
124 * - DON'T PRINT HEADER WITH THIS MESSAGE. * O015F6 1804 239 JNE S66 BR/NO 
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LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0015F8 4734 1782 240 MVA ACIND*,R7 ADR OF DCP INDICATORS 0016E0 359 DC X*O0O1C® CONTROL WORD 
0015FC 4F8B 241 TBTR (R7,RTADTI) MDI IMMEDIATE RETURN 0016E2 360 DC A (1840) POS CURSOR ADDRESS 
Q015FE 18E6 242 JINZ psu6é BR/YES O016E4 361 DC A (0 PRE CURSOR ADDRESS 
81888 6e12 1780 gig oso foo Og tees 33 BE ENB beevGieen Count 
24 B ACSCH* RETURN TO SCHEDULER 
545 * - OO16EA 364 DC A (0) CHAIN ADDRESS 
001604 246 DS70 EOU * 0016EC 365 DC A (1920) BYTE COUNT 
001604 6C05 1696 247 BNCC FOUR,DSNG BR/INTRPT COND CODE BAD O016EE 366 DC A (0) BUFFFR ADDRESS 
001608 248 DS80 EQU * ATTENTION INTERRUPT 367 * 
001608 3742 249 SRL EIGHT,R7 POSITION INTRPT INFO BLOCK (IIB) 368 * WRITE DCB 
00160A C722 16C7 250 RBTB HEXFO,R7 MASK OUT UNUSED BITS 369 * 
00160E 1020 251 JZ DS90 BR/ENTER KEY-GO READ LINE 0016F0 370 WRDCB EQU * USE FOR DCB REFERENCE ONLY 
001610 F708 252 CBI EIGHT,R7 DEVICE MADE READY Q016FO OOO0F 371 WRCTL DC X'OOOFS CONTROL WORD 
001612 10F6 253 JE DS60 BR/YES-IGNORE INTRPT 0016F2 0730 372 WRPOS DC A (1840 POS CURSOR ADDRESS 
001614 F701 254 CBI ONE,R7 ATTENTION KEY 0016F4 0730 373 WRPRE DC A (1840 PRE CURSOR ADDRESS 
001616 1809 255 JNE Ds8 4 BR/NO-MUST BE PROG FUN (PF) 0016F6 0073 374 WRHLA DC A (115) HIGH/LOW ADDRESS 
001618 C320 17B8 256 MVB  PGCTL,R3 SCREEN CONTROL SELECTED O016F8 0001 375 WRSHF DC A(1 PKB/SHIFT COUNT 
00161C 10D9 257 JZ DS50 BR/NO-SET UP ENTER MSG 0016FA 0000 376 CHN DC A (0 CHAIN ADDRESS 
QOO161E C325 17B9 258 MVBZ PGLCT,R3 GET LINE COUNT AND ZERO 0016FC 0050 377 WRBCT DC A (8 } BYTE COUNT 
001622 F318 259 CBI TWEN4, R3 LINE COUNT EQUAL 24 OO16FE 1716 378 WRADR DC A (PRTBU) BUFFER ADDRESS 
001624 17D5 260 JLLT DS50 BR/NO-SET UP ENTER MSG 379 * 
81828 43K6 eh Bas PENT oe LEN HEAES WAITING 31 oe 
384 381798 209 353 Bee? BR” F-20001 eS rkOE BORDT Te ERENCE OND 
ANY PROGRAM FUNCTION KEY (PF) CONTROL FULL SCREEN 
265 * eM 001702 0730 384 RDPOS DC A(1840 OS CURSOR ADDRESS 
00162A 266 DS81 EQU * 001704 0730 385 RDPRE DC A (1840 PRE CURSOR ADDRESS 
00162A C825 17B8 267 MVWZ PGCTL,RO SCREEN CONTROL ON 001706 0000 386 RDHLA DC A (0 HIGH/LOW ADDRESS 
00162E 1004 268 JZ DS82 BR/NO-TURN IT ON 001708 0000 387 RDSHF DC A (0 PKB/SHIFT COUNT 
001630 8828 16D2 16DC 269 MVW  SCOFF,SCMS1 SET OFF INTO CONTROL MESSAGE 00170A 0000 388 RDCHN DC A (0 CHAIN ADDRESS 
001636 5006 270 J DS83 GO PRINT MESSAGE 00170C 0050 389 RDBCT DC A(8 ) BYTE COUNT 
001638 3271 DS82 EOU x 00O170E 1716 390 RDADR DC A(PR BU) BUFFER ADDRESS 
001638 8028 16C7 17B8 272 MVB HEXFO,PGCTL SET SCREEN CONTROL ON 392 * ALTERNATE CONSOLE PATCH AREA 
00163E 8828 16D4 16DcC 273 MVW SCON,5SCMS1 SET ON INTO CONTROL MESSAGE 001710 393 ACEND EQU * 
001644 274 DS83 EOU * 001716 394 ACS EQU C3802¢550 
ao eaa ee 16D6 re 279 MVA SCMSG,R3 ADDRESS OF SCREEN CONTROL MESSAGE 001710 000000000000 333 PATCH One et PATCH AREA 
00164E 50CD : Z38 a Bee roPaS Bae ee BESS Rhee SW LTCH JQ BR ew a RK KK KEKE REE KKK KKH KE KK EEK KEE KEKE EEK EEK ERE KKK KK K 
278 * 399 * * 
279 * READ DATA JUST ENTERED 400 * THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SANE * 
280 * 401 * STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. * 
001650 281 DS90 EQU * 4O2 * * 
001650 C025 17B9 282 MVBZ PGLCT,RO ZEO LINE COUNT Uy 3 tee ae He a Ka A RR OO RR IO BOR I OR RR RO OK OR RE OR EK tk 
001654 8028 16C7 1795 283 MVB HEXFO,ACIMS SET READ IN PROGRESS SWITCH 4O4 * PRINT BUFFER 
00165A 4624 1778 284 MVA RIDCB,R READ IDCB 4Q5 ALIGN WORD 
Q00165E 9FOE 285 JAL DSIO,k GO ISSUE I/O AND CHECK COND CD LO4OLOLO4O4O4O4OY 406 PRTBU DC 80cf ¢ 80 CHARACTER PRINT BUFFER 
001660 50OCF 286 J DS60 WAIT FOR INTERRUPT 407 PRBND EQU PRTBU¢SIXT4Y 
001662 287 DS91 EOU ae UOB wx wR KK So SPSL SS SSE PES SESS SL SSE SSS ES SESLLS SSE SESE SSS LESS ESET SSS ESS SE TS tS 
001662 OF42 288 HYBI SIXT6,R7 MAXIMUM LINE COUNT EXCEPTED 409 * be 
001664 4324 1756 289 MVA PRBND,R3 END OF USEABLE PRINT BUFFER 410 * DISPLAY STATION ALTERNATE CONSOLE ROUTINE ENTRY POINTS * 
001668 0840 290 MVBI EBBK, RO SEARCH CHARACTER - BLANK - 411 * * 
OO166A 286A 291 SFNED RO (R3) SEARCH DECREMENT FOR NON-BLANK UD ie he eRe eB a he He ae eC He Hee He ee ee ee Re ee ee A he a eK a KK 
00166C 0302 292 ABI TWO-R3 STEP PAST NON-BLANK 001766 15D0 413 ACMSG DC A DS50) ADDRESS TO ENTER MESSAGE ROUTINE 
00166E CcOCS5 293 HV BZ graf RO SET EOM CHARACTER 301768 14FO 414 ACENT DC A(DSPLY) DISPLAY STATION RTN 
001670 4224 1716 294 MVA RTBU, R2 ADDRESS OF PRINT BUFFER OO0176A 14FE 416 ACINT DC A (DS00 DISP STAT INTRPT RIN 
001674 C825 179C 295 AVWZ PRTSW,RO RESET THE PRINT SWITCH Lh] BM HH a He eH He He he eK I he Me Re eH EK eM He ae he Ke he he he he a ae He ae i te He ae ae ee a ee ee a a KK 
001678 6812 1788 296 B ACOPC* GO TO COMMAND PROCESSING 419 * 56 
298 ROR I IO OR IO RO OR tok ROR IIR ROR Rg RR fot te ok tee ok akc 420 * THE FOLLOWING ARE THE IDCB*S USED BY THE DISPLAY STATION. * 
299 * * 421 * THE DEVICE ADDRESS WILL BE INSERTED AT INITIALIZATION TIME. * 
300 * THE FOLLOWING ROUTINE ISSUES I/O FOR THE DISPLAY STATION. * 422 * * 
301 * THE CALLING ROUTINE PLACES THE IDCB ADDRESS IN REG 6. * 423 PES SSS SL SSE SES STS SSE SLPS SISS SS SESS SSR SSPSSSSSS ES SSS ESSE SPS SE SPE SES SS SS 2 S : 
302 * * 424 ALIGN WORD 
303 8% * OK aOR kK RK Xt kt Rk tok tO I tak ok tk kak ak 00176C =7000 425 WIDCB DC X* 70008 DISPLAY STATION WRITE 
00167C 304 DSIO zou * 00176E 16F0 426 pc A (WRDCB) 
00167C 4020 17BE 177C 305 NVA ACPRE, IDCB IDCB ADR 001770 7000 427 CIDCB DC x¥*7000°8 DISPLAY STATION CLEAR SCREEN 
001682 680C 177C 306 TO ACPRE PREPARE THE ALTERNATE 001772 16E0 428 DC A (CRDCB) 
001686 6F05 1696 307 BNCC SEVEN,DSNG B-BAD CONDITION 001774 =6F00 429 ACRES DC X"6FO008 DISPLAY STATION RESET 
00168A 6E0D 17BE 308 MVW R6,1DEB SAVE THE IDCB 001776 0000 430 DC x*Q0000* 
00168E 68CC 0000 309 IO AR ) ISSUE PASSED I/0 001778 7000 431 RIDCB DC X¥*70008 DISPLAY STATION READ 
001692 6FE4 0000 310 BCC EVEN, (R7) BR/RETURN ON GOOD COND 00177A 1700 432 DC A (RDDCB) 
311 * 00177C 6000 433 ACPRE DC xX*60008 DISPLAY STATION PREPARE-LEVEL 2 
312 * DISPLAY STATION CONSOLE NO GOOD —- TAKE OFFLINE 00177E 0005 434 DC x*'00058 
313 * 00177F 435 ACPR3 EQU ACPRE#tTHREE 
001696 ; 314 DSNG EQU * 437 ORG C3802+656 
001696 4734 1782 315 MVA ACIND*,R7 ADDRESS OF DCP INDICATORS 438 FoR IORI IO I IORI III IOI I IO I a RoR tok dom ik tO tk 
00169A 4F87 316 TBTR R7,ALTDV) RESET ALTERNATE DEVICE 439 * 
00169C 4FU6 317 TBTS R7, STOP) SET STOP ON MESSAGE G4Q * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS REQUIRED * 
00169E C825 179C 318 MVWZ RTSW,RO RESET THE PRINT SWITCH 441 * FOR THE ALTERNATE CONSOLE ROUTINE AND SHARED BY DCP. * 
0016A2 C025 177F 319 MVBZ ACPR3,P0 RESET INTRPT BIT-ONPREPARE G42 * THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 
0016A6 1003 320 IZ DSNG1 BR/ALREADY DONE ONCE Y43 * STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. * 
0016A8 4624 1774 321 MVA ACRES, R6 ADDRESS OF RESET IDCB 44 * . 
0016AC 9FE7 322 JAL DSIO,&7 GO RESET AND UNPREPARE 445 ka a IO OO OO II III IOI OIG III IIR IOI IR RR i gO tok 
O016AE 323 DSNG1 EU 001780 4YU6 ACSCH EQU * ADDRESS OF SCHEDULAR ROUTINE 
0O016AE 882C 178C 178E 324 MVu ACSTR, ACVTR* SET ALT CON VECTOR TO STRAY 001782 447 ACIND EQU ACSCH+2 DCP INDICATORS 
0016B4 4724 17FE 325 MVA ACNGM,R7 ALTERNATE CONSOLE BAD CODE 001784 448 ACSVP EQU ACSCHt4 SVC INTRPT POINTER 
0016B8 6000 326 SVC OUT SET CODE IN LEDS 001786 449 ACSVR EQU ACSCH+t6 SVC RETURN 
0016BA 6918 1784 327 MVW ACSVP*,R1 GET SVC LSB ADDRESS 001788 450 ACOPC EQU ACSCH+t8 OPERATOR COMMAND ROUTINE 
0016BE 01E2 328 ABI 430,R1 SET SVC LSB POINTER 00178A 451 ACCON EOU ACSCH+* 10 CONSOLE ROUTINE 
0016CO ET7UA 329 MVWS (R1 ORT) ¢R7 SET UP R7 00178C 452 ACSTR EQU ACSCH#12 STRAY INTRPT ROUTIN 
0016C2 6812 178A 330 B cén« GO TO CONSOLE ROUTINE 00178E 453 ACVTR EQU ACSCH#14 ALT CON VECTOR ADDR-INIT 
332 RR RRR ROR IO RO RIOR RO RII RR RIOR RR IRR gk tok kok ge kk koko ak 001790 455 PRBA EQU ACSCH+t16 PRINT BLANK LINE TER ENTER S 
333 * * 001792 456 NLSW EQU ACSCH+18 NEW LINE SWITCH 
334 * DISPLAY STATION ALTERNATE CONSOLE DATA CONSTANTS * 001793 457 OUT1 EQU ACSCH+#19 SVC OPERAND FOR OUTIN SVC 
335 * Ps 001794 459 ACFCS EQU ACSCH#20 MESSAGE BEEN PROCESSED SWITCH 
RRL MRSS SST ST SSS SSS TTS SCT TS Te SPT TSS TTS TCS SS LSS ST TPT SSC CC LCSCCCSSCLSOCCCCCe LT Te TT 001795 460 ACIMS EQU ACSCH#21 READ IN PROGRESS SWITCH 
0016C6 4O 338 EBCBK DC cee EBCDIC BLANK 001796 461 CICNT EQU ACSCH+#22 COUNT OF ACTIVE CICB'S 
0016C7 FO 339 HEXFO DC X"FO?! MASK 001797 462 EXTR1 EQU ACSCH+#23 END OF TABLE INDICATOR 
0016C8 C5SD5E3C5D9 340 ENTER DC CtENTER® MESSAGE 001798 463 INPRC EQU ACSCHt+24 IND OUT/IN IN PROCESS 
0016CD 00 341 DC X'0O! EOM W64 * EQU ACSCHt25 NOT USED 
343 ALIGN WORD 00179A 465 GRPT EQ u ACSCH#26 GROUP PRINTING SWITCH 
0016CE D7C1C7C5 344 PAGE DC C* PAGE! MESSAGE TO PAGE DISPLAY 001798 466 GRPT1 EQU GRPT+1 
0016D2 Cé6C6 345 SCOFF DC C'FFt MESSAGE OVERLAY 00179C 467 PRTSW EOU ACSCH#28 DISPLAY STATION BUSY 
0016D4 D540 346 SCON DC C'n ! MESSAGE OVERLAY 00179E 468 ENTSW Et ACSCH+30 ENTER MESSAGE PROCESSED SWITCH 
0016D6 C3D5E3D340D6 347 SCMSG DC C'*CNTL of MESSAGE 0017A0 469 ACWCT EQU ACSCH#32 NOT USED BY THIS OVERLAY 
0016DC 4040 348 SCMS1 DC cet 0017A1 470 ACWC1 EQU ACWCT+1 NOT USED BY THIS OVERLAY 
0016DE 00 349 DC x*oor EOM 0017A2 471 DEAT EQU ACSCH#34 SCREEN CONTROL MESSAGE 
0O016DF 00 350 pc X*'oo? SPARE 0017A4 472 HRTA EQU ACSCH+t 36 PRG CHK ADR F DIAG 
352 * 0017A6 Y74 INVT1 EQU ACSCH+#38 BYTE COUNT 
353 * DATA CONTROL BLOCKS FOR THE DISPLAY STATION 0017A8 475 INVT2 EOU ACSCH#40 ADR OF DATA TO CONVERT 
354 * OO17AA 476 INVT3 EOQU ACSCH#42 TARGET AREA 
355 * CLEAR CRT SCREEN DCB OO17AC 478 HLTCV EQOU ACSCH44y BYTE COU 
356 * “79 * EQU ACSCHE46 ADR OF DATA TO CONVERT 
357 ALIGN WORD 480 * EQ U ACSCHt48 TARGET AREA 
0016E0 358 CRDCB EQU * USE FOR DCB REFERENCE ONLY 0017B2. 482 HALCV EQU ACSCH#50 BYTE COUNT 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
483 * EQU ACSCHt+52 ADR OF DATA TO CONVERT DECLARED NAME ATTRIBUTES AND REFERENCES 
" : 
Bh iaae nets PGCTL HY Reecsee ent ceHece CONTROL SWITCH AND 451 ACCON ORR eSS. HEX LOCATION (0000178A) IN CSECT (C3802 ) LENGTH (1) 
Coton hageeoeas ESU aoe en sor Gee 393 ACEND ADDRESS. HEX LOCATTON(00001710) IN CSECT(C3802 ) LENGTH(1) 
OO 1TBE 494 Been 5 i Aesche es ADDRESS CE LAST IDCB ISSUED BY DCP 459 ACFCS ADDRESS, HEX LOCATION (00001794) IN CSECT (C3802 ) LENGTH (1) 
waaqieD ea eed Coma. “aeecrlee ERROR ‘CODE 460 ACINS ADDRESS. HEX LOCATION(00001795) IN CSECT(C3802 ) LENGTH(1) 
0017CC 495 HSG7A EOU ACSCH+t+76 148 283 
0017D0 u96 HSG8 E6U ACSCH+80 Q“y7 ACIND ADDRESS. HEX LOCATION (00001782) IN CSECT (C3802 ) LENGTH (1) 
0017D5 497 HSG8A EGU ACSCH+85 215 240 
ae AgoR Tog) ecco “EUS REREHLOG 512 ACNGM ADDRESS. HEX LOCATION(000017FE) IN CSECT (C3802 ) LENGTH(1) 
OO17DF Soap Sean, | weecteens PON AND DER: ASG CITE FED 450 ACOPC ADDRESS. HEX LOCATION(00001788) IN CSECT(C3802 ) LENGTH(1) 
GOTT ES pa thee ck aoebueibe ADDRESS. <OF AROS AGE 433 ACPRE ADDRESS. HEX LOCATION(0000177C) IN CSECT(C3802 ) LENGTH(2) 
0017EC 505 ACPRS EOU ACSCH+108 305 _ 306 
0017F8 507 LPD FOU ACSCH4+120 ADDRESS OF MESSAGE 504 ACPRG ADDRESS. X LOCATION (OO00017EA) IN CSECT (C3802 ) LENGTH (1) 
509 * EGU ACSCHt 122 ERROR CODE 168 0 77 
0017FC 510 ACNG1 EQU ACSCH+124 EOM AND DCP MSG CNTL FLD 435 ACPR3 ala ae a OOO177F) IN CSECT(C3802 ) LENGTH(1) 
One ES 314 ACHGH BOT ASeg eT sée SUP O EDR nen eon ace 429 ACRES ADDRESS. HEX LOCATION (00001774) IN CSECT(C3802 ) LENGTH (2) 
EET Bie pees eRe pep edo HOC ATION OF FCULINE NUMBER 394 acs ADDRESS. HEX LOCATION (00001716) IN CSECT(C3802 ) LENGTH(1) 
bo 1806 Big wore eQ0 - EtOete CEECKE OLN E AUEBES 446 ACSCH ADDRESS, HEX LOCATION (00001780) IN CSECT(C3802 |) LENGTH(1) 
244. B47 48 449. 450 51 452-453 455 
656 457 59 460 461 462 463 465 467? 
468 469 71 #472 «#4474 «8475 «646760 478) O82 
486 488 89 491 494 495 496 497 498 
499 502 04 505 507. 510 512 
452 ACSTR ADDRESS. HEX LOCATION (0000178C) IN CSECT (C3802) LENGTH(1) 
448 ACSVP ADDRESS, HEX LOCATION (00001784) IN CSECT(C3802 ) LENGTH(1) 
449 ACSVR ADDRESS. HEX LOCATION (00001786) IN CSECT(C3802 ) LENGTH(1) 
453 ACVTR ADDRESS. HEX LOCATION(0000178E) IN CSECT(C3802 ) LENGTH(1) 
469 ACWCT ADDRESS. HEX LOCATION (000017A0) IN CSECT (C3802 ) LENGTH(1) 
39 ALTDV ABSOLUTE. HEX VALUE (00000007) 
358 CRDCB ADDRESS. HEX LOCATION (00001620) IN CSECT (C3802 LENGTH (1) 
3 ©3802 CSECT. ,START(QQ0014F0) LENGTH (784) ESDID(1) 
3° 7394 97. 437 518 
471 DEAT ADDRESS, HEX LOCATION (000017A2) IN CSECT(C3802 ) LENGTH(1) 
304 DSIO ADDRESS. HEX LOCATION (0000167C) IN CSECT(C3802 ) LENGTH(1) 
314 DSNG ADDRESS. HEX LOCATION (00001696) IN CSECT(C3802 ) LENGTH(1) 
323 DSNG1 ADDRESS. HEX LOCATION (000016AE) IN CSECT(C3802 ) LENGTH(1) 
131 DSPLY ADDRESS. HEX LOCATION (000014FO) IN CSECT(C3802 ) LENGTH(1) 
142 ps00 ADDRESS. HEX LOCATION(O0OO14FE) IN CSECT(C3802 ) LENGTH(1) 
145 Ds01 ADDRESS. HEX LOCATION (00001504) IN CSECT(C3802 ) LENGTH(1) 
152 DS10 ADDRESS. HEX LOCATION (0000151A) IN CSECT(C3802 ) LENGTH(1) 
176 DS20 ADDRESS, HEX LOCATION(0000155C) IN CSECT(C3802 ) LENGTH(1) 
183 Ds21 ADDRESS. HEX LOCATION (00001568) IN CSECT(C3802 ) LENGTH(1) 
191 DS22 ADDRESS. HEX LOCATION (000015S7A) IN CSECT(C3802 ) LENGTH(1) 
201 DS23 ADDRESS. HEX LOCATION (00001592) IN CSECT(C3802 ) LENGTH(1) 
203 ps24 ADDRESS. HEX LOCATION(00001598) IN CSECT(C3802 ) LENGTH(1) 
207 DS30 ADDRESS. HEX LOCATION (000015A2) IN CSECT (C3802) LENGTH(1) 
221 DS40 ADDRESS; HEX LOCATION(00001SCC) IN CSECT(C3802 ) LENGTH(1) 
223 psS0 ADDRESS, HEX LOCATION (000Q15D0) IN CSECT(C3802 ) LENGTH(1) 
230 Ds51 ADDRESS. HEX LOCATION (00001SEO) IN CSECT(C3802 ) LENGTH(1) 
234 DS52 ADDRESS, HEX LOCATION(00001SEA) IN CSECT(C3802 ) LENGTH(1) 
236 DS53 ADDRESS. HEX LOCATION (000015EC) IN CSECT(C3802 ) LENGTH(1) 
243 Ds60 ADDRESS. HEX LOCATION (00901600) IN CSECT (C3802) LENGTH(1) 
200. 206 39 53 61 
246 DS70 ADDRESS. HEX LOCATION(00001604) IN CSECT(C3802 ) LENGTH(1) 
266 DSB1 ADDRESS. HEX LOCATION (0000162A) IN CSECT(C3802 ) LENGTH(1) 
271 DS82 ADDRESS. HEX LOCATION (00001638) IN CSECT(C3802 ) LENGTH(1) 
274 DS83 ADDRESS. HEX LOCATION(00001644) IN CSECT(C3802 ) LENGTH(1) 
281 ps90 ADDRESS. HEX LOCATION(00001650) IN CSECT(C3802 ) LENGTH(1) 
287 Ds91 ADDRESS. HEX LOCATION (00001662) IN CSECT(C3802 ) LENGTH(1) 
62 EBBK ABSOLUTE, HEX VALUE (00000040) 
16 EGHTY ABSOLUTE. HEX VALUE (00000050) 
70 EIGHT ABSOLUTE, HEX VALUE (00000008) 
340 ENTER ADDRESS. HEX LOCATION(000016C8) IN CSECT(C3802 LENGTH (5) 
468 ENTSW ADDRESS. HEX, LOCATION (0000179E) IN CSECT (C3802 LENGTH (1) 
68 FOUR ABSOLUTE, HEX VALUE (00000004) 
465 GRPT ADDRESS. HEX LOCATION(0000179A) IN CSECT (C3802 LENGTH (1) 
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HEX LOCATION (00001716) I 
188 9 


AND REFERENCES 


HEX LOCATION(0000179B) IN 
HEX LOCATION(000017B2) IN 
HEX LOCATION (000016C7) IN 
HEX LOCATION (000017AC) IN 
HEX VALUE(0000001A) 


gure LOCATION (000017BE) IN 


HEX LOCATION(000017D0) IN 
HEX VALUE (FFFFFFFF) 

HEX VALUE (FFFFFFE2) 

HEX VALUE (00000009) 

HEX, LOCATION (00001792) IN 
HEX VALUE (00000001) 

HEX VALUE (00000000) 
HEX LOCATION (00001793) IN 
HEX LOCATION (000016CE) IN 
HEX LOCATION (000017B8) IN 
HEX LOCATION (000017B9) IN 
HEX. LOCATFON (00001800) IN 
HEX LOCATION (00001790) IN 
HEX LOCATION (00001756) IN 


78 0 
HEX LOCATION (0000179C) IN 
214 5 318 
HEX VALUE(00000014) 
HEX VALUE (00000016) 
HEX LOCATION (00001700) IN 
HEX LOCATION (00001778) IN 
HEX LOCATION (000017BC) IN 
HEX VALUE (00000008) 
HE VALUE (00000000) 
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HEX LOCATION (000016D6) IN 
HEX LOCATION(000016DC) IN 
HEX LOCATION (000016D2) IN 
HEX LOCATION (000016D4) IN 
HEX VALUE (00000007) 

HEX VALUE (00000040) 

HEX VALUE (00000042) 

HEX VALUE (00000001) 

HEX VALUE(00000006) 

HEX VALUE (00000003) 

HEX VALUE(00000018) 

HEX VALUE (00000014) 

HEX VALUE (00000002) 

HEX LOCATION (0000176C) IN 


HEX VALUE (00000000) 
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CSECT (C3802 
CSECT (C3802 
CSECT (C3802 
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161 179 
290 291 
328 329 
194 195 
275 289 
233 
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178 184 
241 249 
316 317 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 


LENGTH (1) 


LENGTH (1) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 


LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
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